[10]?
?
Example?Initialization?Program:?
//-------------------------------------------------------------------------------
Sub Writecom
Set P3.0 'A0 = H = Write command
P1 = A 'move data to P1
Reset P3.1 'chip select
Reset P3.7 'R/W
Set P3.4 'E
Reset P3.4 'E
Set P3.7 'R/W
Set P3.1 'CS
End Sub
Sub Writedata
Reset P3.0 'A0 = L = Write data
P1 = A
Reset P3.1
Reset P3.7
Set P3.4
Reset P3.4
Set P3.7
Set P3.1
End Sub
//-------------------------------------------------------------------------------
Sub Init
Set P3.2 'SEL=1 = Motorola 6800 write
interface
Reset P3.6 'RESET
Waitms 10 'wait
Set P3.6 'RESET done
Waitms 100 'wait
A = &H40 'system set command
Call Writecom
A = &H30 'set parameters
Call Writedata
A = &H87 'horizontal character size=8
Call Writedata
A = &H07 'vertical character size=8
Call Writedata
A = &H27 'display addresses per line
Call Writedata
A = &H50 'total address range per line
Call Writedata
A = &HEF '240 display lines
Call Writedata
A = &H28 'virtual address1
Call Writedata
A = &H00 'virtual address2
Call Writedata
A = &H44 'scroll
Call Writecom
A = &H00 'start address1
Call Writedata
A = &H00 'start address2
Call Writedata
A = &HEF '240 lines
Call Writedata
A = &HB0 '2nd screen start1
Call Writedata
A = &H04 '2nd screen start2
Call Writedata
A = &HEF '2nd screen 240 lines
Call Writedata
A = &H00 '3rd screen address1
Call Writedata
A = &H00 '3rd screen address2
Call Writedata